RCAD script
1.00
X1Xscript
X1Xup.bmp
X1Xdown.bmp
6
0
1
Before
First number or letter
After
Font
Size
Aling ?




X
1
X
Helvetica
18
yes




Dim s_xc, s_yc as double
Dim s_t as integer
Dim s_String as string

if GlobalScript1 < 0 then
   GlobalScript1 = 0
   GlobalScript2 = val(UserInput2)
else
   GlobalScript2 = GlobalScript2 + 1
end if
s_xc = (firstx + lastx) / 2
s_yc = (firsty + lasty) / 2

if UserInput6 = "yes" then
    if abs(s_xc - GlobalScript3) < 50 then
        s_xc = GlobalScript3
    end if
    if abs(s_yc - GlobalScript4) < 50 then
        s_yc = GlobalScript4
    end if
    GlobalScript3 = s_xc
    GlobalScript4 = s_yc
end if

s_t = val(UserInput5)
s_String = UserInput1 + Str(GlobalScript2) + UserInput3
if (s_String <> "") and (s_t > 0) then
   Add_String(s_String,s_xc, s_yc + s_t/2,s_t,1,false,false,false,7,0,UserInput4,false,false,0, 100, 100)
end if

